
Partial Class frmAyuda
    Inherits System.Web.UI.Page


    Public Sub Link()
        Dim tipo As String
        tipo = CType(Session("id_tipo"), String)
        Select Case tipo
            Case 1
                lnkVolver.NavigateUrl = "frmPaneldeControl.aspx"
            Case 2
                lnkVolver.NavigateUrl = "frmInicio.aspx"
            Case 3
                lnkVolver.NavigateUrl = "frmInicio2.aspx"
            Case 4
                lnkVolver.NavigateUrl = "frmInicio3.aspx"
            Case 5
                lnkVolver.NavigateUrl = "frmInicio4.aspx"
            Case Else
                lnkVolver.NavigateUrl = "frmLogin.aspx"
        End Select

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Link()
    End Sub
End Class
